screen 20,8

dim as single xn,an,yn,bn,cn,in,zeit,teilung,schritt
dim as double tn

''Pausezeit in msec zwischen den gezeichneten Geraden
zeit = 0

''Aufteilung des Kreises in "4 mal Teilung" Punkte (sinnvoll >=1)
Teilung = 4

''Aufteilung der senkrechten und waagerechten Geraden
Schritt = 10

''Mittelpunkt der Grafik
bn = 384
cn = 512

for teilung = 0 to 8 step 2
for schritt = 200 to 1 step -1

''Bestimmt Punkte auf einer Kreislinie mit Koordinaten xn,yn
FOR in = 0 TO 6.283 STEP 1.57/Teilung
  xn = SIN(in) * 300 + 512
  yn = COS(in) * 300 + 384
  
''Bestimmt 7 Punkte auf einer waagerechten Geraden (bei step 100)
  FOR an = 212 TO 812 STEP Schritt
       COLOR in+10
       sleep zeit
       
''Zeichnet Gerade von einen Punkt auf dem Kreis
''zu denen auf der waagerechten Geraden
 line (xn,yn)-(an,bn)
NEXT an

''Bestimmt 7 Punkte auf einer senkrechten Geraden (bei step 100)
  FOR an = 84 TO 684 STEP Schritt
    COLOR in+20
    sleep zeit
    
''Zeichnet Gerade von einen Punkt auf dem Kreis
''zu denen auf der waagerechten Geraden
   line (xn,yn)-(cn,an)
  NEXT an

NEXT in

''Das "cls" von zwei Zeilen weiter unten nach hierher gibt ganz andere Verläufe.
''Wenn man es ganz wegläßt, ebenfalls.
next schritt
''Das cls eventuell zwei Zeilen nach oben oder weglassen.
cls
next teilung
sleep
end 0